home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / comm / cnet / acey_deucey.lha / Acey_Deucey < prev    next >
Text File  |  1996-10-23  |  24KB  |  571 lines
  1. /**************************************************************************\
  2.              $VER: Acey-Deucey, v1.30 (5-Oct-96) by Dotoran!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR;ver=word(sourceline(2),3)
  5. tr=transmit;se=sendstring;qu=query;gc=getchar;gu=getuser
  6. a='rexxsupport.library';if ~show('l',a) then if ~addlib(a,0,-30) then exit
  7. yours=500;tsr=random(,,time('s'));changewhere "Acey-Deucey, "ver
  8.  
  9. lose=0   /* Lose what? 0 = Nothing, but a bit of face,
  10.                        1 = Time ($10 = 1 Minute),
  11.                        2 = Game Points ($1 = 1 Game Point).             */
  12.  
  13. gu 1;handle=result
  14.  
  15. if lose=1 then do;gu 7;time=result%10;if time<10 then do
  16.   tr 'f1naceYou do not have enough cfTime ceto play'
  17.   tr 'o1cbA C E Y   D E U C E Yo0 cetoday...w3'
  18.   signal GOODBYE;end;end
  19.  
  20. if lose=2 then do;gu 21;gpoints=result;if gpoints<1000 then do
  21.   tr 'f1naceYou do not have enough cfGame Points ceto play'
  22.   tr 'o1cbA C E Y   D E U C E Yo0 cetoday...w3'
  23.   signal GOODBYE;end;end
  24.  
  25. gu 2407202;defcol='c'substr('0123456789abcdef',result+1,1)
  26.  
  27. dbet=10;friend=1;games=25;pgone=0;pauls=random(200,600)
  28. jgone=0;jennifers=random(300,700);kgone=0;kristins=random(400,800)
  29. d1=1;tr '@4';call TITLE
  30.  
  31. START:
  32.   se 'n1>f>9c7Number of Opponents? c3(c60c3-c63c3)c7: c6'
  33.   gc;an=result;call CHECK;if an<'0' | an>'3' then an='1'
  34.   tr an;pl=an;players=an+1;card=0;tr 'f0n2'
  35.   do 18;tr '>7z0'copies(' ',66);end;call PREFS;gms=games
  36.   tr 'f0n1z1c6';do 20;tr '>5'copies('°',70);end
  37. ST1:
  38.   call CLEAR;tr '>f>fc6Collecting Antes...'
  39.   tr 'n1>f>fFive Chips Each...w3';yours=yours-5
  40.   if jgone=0 & pl>0 then jennifers=jennifers-5
  41.   if kgone=0 & pl>1 then kristins=kristins-5
  42.   if pgone=0 & pl>2 then pauls=pauls-5
  43.  
  44. HUMAN:
  45.   an=yours;bpos='n2>f>f>f>5';call BANK
  46.   tr "f0n7>f>fz6c4"left(handle"'s Hand/",20)
  47.   down='n2';over='>f>f';call DEAL;h1=v
  48.   if h1=1 then do;call CLEAR;tr 'f0na>f>fc7Will this c6Ace c7be'
  49.     tr '>f>fc2Lowc7, or c2Highc7?'
  50.     se '>f>f(c2Lc7/c2hc7): c2';gc;a=result
  51.     if a='H'  then do;tr 'High';h1=14;end
  52.     if a~='H' then do;tr 'Low' ;h1=1 ;end
  53.   end;over='>f>f>e';call DEAL;h2=v;if h2=1 then h2=14
  54.   if h1<h2 then do;v=h1;h1=h2;h2=v;end
  55.   if pl=0 then signal HPLAY
  56.  
  57. JENNIFER:
  58.   if jgone=1 & pl=1 then signal HPLAY
  59.   if jgone=1 & pl>1 then signal KRISTIN
  60.   an=jennifers;bpos='nd>f>f>f>b';call BANK
  61.   tr "f0nd>f>f>f>bz6c4Jennifer's Hand "
  62.   down='n8';over='>f>f>f>9';call DEAL;j1=v
  63.     if j1=1 then do;ace=random(1,2)
  64.     if ace=1 then j1=1;else j1=14
  65.     call CLEAR;tr 'f0na>f>fc2Jennifer c7makes her'
  66.     tr '>f>fc6Ace c7a c5'substr('Low High',ace*4-3,4)' c7one.w2'
  67.     end
  68.   over='>f>f>f>f>8';call DEAL;j2=v;if j2=1 then j2=14
  69.   if j1<j2 then do;v=j1;j1=j2;j2=v;end
  70.   if pl=1 then signal HPLAY
  71.  
  72. KRISTIN:
  73.   if kgone=1 & pl=1 then signal HPLAY
  74.   if kgone=1 & pl>1 then signal PAUL
  75.   an=kristins;bpos='nf>d';call BANK
  76.   tr "f0nfn5>f>ez6c4    Kristin's Hand  "
  77.   down='nf';over='>f>f';call DEAL;k1=v
  78.     if k1=1 then do;ace=random(1,2)
  79.     if ace=1 then k1=1;else k1=14
  80.     call CLEAR;tr 'f0na>f>fc2Kristin c7makes her'
  81.     tr '>f>fc6Ace c7a c5'substr('Low High',ace*4-3,4)' c7one.w2'
  82.     end
  83.   over='>f>f>e';call DEAL;k2=v;if k2=1 then k2=14
  84.   if k1<k2 then do;v=k1;k1=k2;k2=v;end
  85.   if pl=2 then signal HPLAY
  86.  
  87. PAUL:
  88.   if pgone=1 then signal HPLAY
  89.   an=pauls;bpos='n3>9';call BANK
  90.   tr "f0nd>9z6c4  Paul's Hand   "
  91.   down='n8';over='>7';call DEAL;p1=v
  92.     if p1=1 then do;ace=random(1,2)
  93.     if ace=1 then p1=1;else p1=14
  94.     call CLEAR;tr 'f0na>f>fc2Paul c7makes his c6Ace'
  95.     tr '>f>fc7a c5'substr('Low High',ace*4-3,4)' c7one.w2'
  96.     end
  97.   over='>f>6';call DEAL;p2=v;if p2=1 then p2=14
  98.   if p1<p2 then do;v=p1;p1=p2;p2=v;end
  99.  
  100. HPLAY:
  101.   call CLEAR;tr '>f>fc3'handle
  102.   tr '>f>fc7'copies('-',length(handle))
  103.   se '>f>fc6Your Betc7:c5 ';qu;an=result;call CHECK
  104.   if an='' then do;an=dbet;tr '^1>f>f>a'an;end
  105.   a=pos(an,'qQrRnNhH?');if a=0 then signal HPLAY2
  106.   if a=1 | a=2 then signal QUIT
  107.   if a=3 | a=4 then do;games=gms
  108.     tr '>f>fc3Repetitions Reset!';signal HPLAY;end
  109.   if a=5 | a=6 then do;se '>f>fc7New Repetitions: ';qu
  110.     an=result;call CHECK;if an<'1' | an>'100' then do
  111.       tr '>f>fc1Bad Value.';signal HPLAY;end
  112.     games=trunc(an);gms=games;signal HPLAY;end
  113.   if a>6 & a<10 then do;call CLEAR
  114.     tr '^1>f>fz0c6o1H E L P  S C R E E No0'
  115.     tr '>f>fc7Enter a bet, or use:'
  116.     tr '>f>fc7[c5Qc7]c5uit Hand'
  117.     tr '>f>fc7[c2Rc7]c2eset Repetitions'
  118.     tr '>f>fc7[c1Nc7]c1ew Rep. Value'
  119.     tr '>f>fc3<c6CRc3>c6Use Default Betg1'
  120.   signal HPLAY;end
  121.  
  122. QUIT:
  123.   call CLEAR;tr '>f>fc3Are you c6sure c3you'
  124.   se '>f>fwant to c1Quitc3?n1>f>fc7(c2yc7/c2Nc7)c3: c2'
  125.   gc;an=result;call CHECK
  126.   if an='Y' then do;tr 'Yes.';signal GOODBYE;end
  127.   tr 'No.';signal HPLAY
  128.  
  129. HPLAY2:
  130.   if an<1 & h1-h2>1 then do
  131.     tr '>f>fc1Must give a bet!w1'
  132.     signal HPLAY;end
  133.   if an>yours/2 then do;tr '>f>fc1That is too much!w1'
  134.     signal HPLAY;end
  135.   hbet=trunc(an);if pl=0 then signal HFIN
  136.  
  137. JPLAY:
  138.   if jgone=1 & pl=1 then signal HFIN
  139.   if jgone=1 & pl>1 then signal KPLAY
  140.   call CLEAR;tr '>f>fc3Jennifer'
  141.   se '>f>fc7--------n1>f>fc6Bets...'
  142.   if j1-j2<2 then jbet=0
  143.   if j1-j2>1 then jbet=random(1,25)
  144.   if j1-j2>3 then jbet=random(26,50)
  145.   if j1-j2>5 then jbet=random(50,75)
  146.   if j1-j2>9 then jbet=random(76,100)
  147.   if jbet>jennifers/2 then jbet=trunc(jennifers/2)
  148.   tr 'c5'jbet'w1'
  149.   if pl=1 then signal HFIN
  150.  
  151. KPLAY:
  152.   if kgone=1 & pl=2 then signal HFIN
  153.   if kgone=1 & pl>2 then signal PPLAY
  154.   call CLEAR;tr '>f>fc3Kristin'
  155.   se '>f>fc7-------n1>f>fc6Bets...'
  156.   if k1-k2<2 then kbet=0
  157.   if k1-k2>1 then kbet=random(1,50)
  158.   if k1-k2>3 then kbet=random(51,100)
  159.   if k1-k2>5 then kbet=random(101,150)
  160.   if k1-k2>9 then kbet=random(151,200)
  161.   if kbet>kristins/2 then kbet=trunc(kristins/2)
  162.   tr 'c5'kbet'w1'
  163.   if pl=2 then signal HFIN
  164.  
  165. PPLAY:
  166.   if pgone=1 then signal HFIN
  167.   call CLEAR;tr '>f>fc3Paul'
  168.   se '>f>fc7----n1>f>fc6Bets...'
  169.   if p1-p2<2 then pbet=0
  170.   if p1-p2<1 then pbet=random(1,75)
  171.   if p1-p2>3 then pbet=random(76,150)
  172.   if p1-p2>5 then pbet=random(151,225)
  173.   if p1-p2>9 then pbet=random(226,300)
  174.   if pbet>pauls/2 then pbet=trunc(pauls/2)
  175.   tr 'c5'pbet'w1'
  176.  
  177. HFIN:
  178.   down='n2';over='>f>f>7';call DEAL
  179.   call CLEAR;tr '>f>fc3'handle
  180.   tr '>f>fc7'copies('-',length(handle))
  181.   call CHECK;if h2=h1-1 | h1=h2 then do;tr '>f>fc1Oh No! Bad Luck!'
  182.     tr '>f>fYou lose your ANTE!w2';hbet=0;signal HBANK;end
  183.   if h1=v | h2=v then do;tr '>f>fc1Oh No! Bad Luck!'
  184.     tr '>f>fYou lose DOUBLE!w2'
  185.     yours=yours-(hbet*2);signal HBANK;end
  186.   if v>h1 | v<h2 then do;tr '>f>fc1Ooops! Too Bad!'
  187.     tr '>f>fYou lose your bet!w2'
  188.     yours=yours-hbet;signal HBANK;end
  189.   tr '>f>fc6Congratulations!'
  190.   tr '>f>fc7You WIN your bet!w2'
  191.   yours=yours+hbet;signal HBANK
  192.  
  193. JFIN:
  194.   if jgone=1 & pl=1 then signal AGAIN
  195.   if jgone=1 & pl>1 then signal KFIN
  196.   down='n8';over='>f>f>f>f>1';call DEAL
  197.   call CLEAR;tr '>f>fc3Jennifern1>f>fc7--------'
  198.   call CHECK;if j2=j1-1 | j1=j2 then do;tr '>f>fc1Oh No! Bad Luck!'
  199.     tr '>f>fYou lose your ANTE!w2';jbet=0;signal JBANK;end
  200.   if j1=v | j2=v then do;tr '>f>fc1Oh Dear!'
  201.     tr '>f>fI lose DOUBLE!w1'
  202.     jennifers=jennifers-(jbet*2);signal JBANK;end
  203.   if v>j1 | v<j2 then do;tr '>f>fc1Uh! Darnit!'
  204.     tr '>f>fI lost my bet!w1'
  205.     jennifers=jennifers-jbet;signal JBANK;end
  206.   tr '>f>fc6Did I do good?!w1'
  207.   jennifers=jennifers+jbet;signal JBANK;end
  208.  
  209. KFIN:
  210.   if kgone=1 & pl=2 then signal AGAIN
  211.   if kgone=1 & pl>2 then signal PFIN
  212.   down='nf';over='>f>f>7';call DEAL
  213.   call CLEAR;tr '>f>fc3Kristinn1>f>fc7-------'
  214.   call CHECK;if k2=k1-1 | k1=k2 then do;tr '>f>fc1Oh No! Bad Luck!'
  215.     tr '>f>fYou lose your ANTE!w2';kbet=0;signal KBANK;end
  216.   if k1=v | k2=v then do;tr '>f>fc1Silly Cards!'
  217.     tr '>f>fI lose DOUBLE!w1'
  218.     kristins=kristins-(kbet*2);signal KBANK;end
  219.   if v>k1 | v<k2 then do;tr '>f>fc1Oh! Gumdrops!'
  220.     tr '>f>fI lost my bet!w1'
  221.     kristins=kristins-kbet;signal KBANK;end
  222.   tr '>f>fc6I won, right?!w1'
  223.   kristins=kristins+kbet;signal KBANK;end
  224.  
  225. PFIN:
  226.   if pgone=1 then signal AGAIN
  227.   down='n8';over='>e';call DEAL
  228.   call CLEAR;tr '>f>fc3Pauln1>f>fc7----'
  229.   call CHECK;if p2=p1-1 | p1=p2 then do;tr '>f>fc1Oh No! Bad Luck!'
  230.     tr '>f>fYou lose your ANTE!w2';pbet=0;signal PBANK;end
  231.   if p1=v | p2=v then do;tr '>f>fc1Dammit All!'
  232.     tr '>f>fI lose DOUBLE!w1'
  233.     pauls=pauls-(pbet*2);signal PBANK;end
  234.   if v>p1 | v<p2 then do;tr '>f>fc1Jesus H!'
  235.     tr '>f>fI lost my bet!w1'
  236.     pauls=pauls-pbet;signal PBANK;end
  237.   tr ">f>fc6It's about time!w1"
  238.   pauls=pauls+pbet;signal PBANK;end
  239.  
  240. HBANK:
  241.   an=yours;bpos='n2>f>f>f>5';call BANK
  242.   if pl=0 then signal AGAIN
  243.   signal JFIN
  244.  
  245. JBANK:
  246.   an=jennifers;bpos='nd>f>f>f>b';call BANK
  247.   if pl=1 then signal AGAIN
  248.   signal KFIN
  249.  
  250. KBANK:
  251.   an=kristins;bpos='nf>d';call BANK
  252.   if pl=2 then signal AGAIN
  253.   signal PFIN
  254.  
  255. PBANK:
  256.   an=pauls;bpos='n3>9';call BANK
  257.   signal AGAIN
  258.  
  259. AGAIN:
  260.   call CLEAR;games=games-1;if games>0 then signal AG2
  261.   tr 'n1>f>fc6Want to c3Play c6Again?';se '>f>fc7(c5Yc7/c5nc7): c5'
  262.   gc;an=result;call CHECK;if an='N' then do;tr 'No.'
  263.     signal GOODBYE;end;else tr 'Yes!'
  264. AG2:
  265.   se 'f0n3z1c6';do 4;tr '>f>f'copies('°',19);end
  266.   if yours>1000 | yours<6 then signal HBYE
  267.   se 'f0n9z1c6';do 4;tr '>f>f>f>9'copies('°',19);end
  268.   if (jennifers>1000 | jennifers<6) & jgone=0 then call JBYE
  269.   tr 'f0nfz1c6';do 4;tr '>f>f'copies('°',19);end
  270.   if (kristins>1000 | kristins<6) & kgone=0 then call KBYE
  271.   se 'f0n9z1c6';do 4;tr '>7'copies('°',19);end
  272.   if (pauls>1000 | pauls<6) & pgone=0 then call PBYE
  273.   if players*3>52-card then call SHUFFLE
  274.   signal ST1
  275.  
  276. HBYE:
  277.   call CLEAR;if yours>1000 then do;tr ">f>fc6You've broke this"
  278.     tr ">f>ftable's bank... Tryn1>f>fagain later."
  279.     do 900;end;signal GOODBYE;end
  280.   if yours<6 then do;tr ">f>fc6You've tried as"
  281.     tr '>f>fhard as you could,n1>f>fonly to fail at'
  282.     tr ">f>f'ol Lady Luck..."
  283.     do 900;end;signal GOODBYE;end
  284.  
  285. JBYE:
  286.   tr 'f0n8z1c6';do 10;tr '>f>f>f>9'copies('°',20);end
  287.     call CLEAR;players=players-1
  288.   if jennifers>1000 then do;tr '>f>fc6Jennifer decides'
  289.     tr ">f>fto quit, while she'sn1>f>fahead...g1"
  290.     if friend=1 then do;call CLEAR
  291.       tr '>f>fc6Jennifer gives youn1>f>f100 Chips for a'
  292.       tr '>f>fquickie afterwards...g1';yours=yours+100;end
  293.     jgone=1;return;end
  294.   if jennifers<6 then do;tr '>f>fc6Jennifer has had'
  295.     tr '>f>fher last stroke ofn1>f>fbad luck.  She'
  296.     tr '>f>fhas left the game.w4'
  297.     jgone=1;return;end
  298.  
  299. KBYE:
  300.   tr 'f0nfz1c6';do 5;tr '>d'copies('°',40);end
  301.     call CLEAR;players=players-1
  302.   if kristins>1000 then do;tr '>f>fc6Kristin decides'
  303.     tr '>f>fto buy a minkn1>f>fcoat with her cash.g1'
  304.     if friend=1 then do;call CLEAR
  305.       tr '>f>fc6Kristin slips youn1>f>f100 Chips under'
  306.       tr '>f>fthe table.g1';yours=yours+100;end
  307.     kgone=1;return;end
  308.   if kristins<6 then do;tr '>f>fc6Kristin has gotten'
  309.     tr '>f>fa very bad headachen1>f>fShe decides to turn'
  310.     tr '>f>fin for the night.w4'
  311.     kgone=1;return;end
  312.  
  313. PBYE:
  314.   tr 'f0n3z1c6';do 10;tr '>7'copies('°',20);end
  315.     call CLEAR;players=players-1
  316.   if pauls>1000 then do;tr '>f>fc6Paul decides he can'
  317.     tr '>f>fnow pay off hisn1>f>fbookee...g1'
  318.     if friend=1 then do;call CLEAR;tr '>f>fc6Paul gives you 100'
  319.       tr '>f>fChips to not telln1>f>fLouie where he is.g1'
  320.       yours=yours+100;end
  321.     pgone=1;return;end
  322.   if pauls<6 then do;tr '>f>fc6Paul squirms quietly'
  323.     tr ">f>ffrom the table aftern1>f>fLouie see's him blow"
  324.     tr '>f>fhis entire wad!gw4'
  325.     pgone=1;return;end
  326.  
  327. GOODBYE:
  328.   tr 'f1n1>f>9z3c4'copies('°',29)
  329.   do 10;tr '>f>9'copies('°',29);end;tr 'f0n1c5'
  330.   do 10;tr '>f>9>5'copies('±',9);end;tr 'f0n1'
  331.   do 10;tr '>f>9>f'copies('±',9);end;tr 'f0n3'
  332.   tr '>f>9>7c0Enter>5Exitn9'
  333.   tr 'z0c6'center('You take care of business at the cash desk...',78)
  334.   if yours>500 then do;tr 'c2';yours=yours-500
  335.     if lose=1 then do;addtime (yours%10)
  336.       tr center('You leave with an additional 'yours%10' Minutes of Time.',78);end
  337.     if lose=2 then do;addpoints (yours)
  338.       tr center('You leave with an additional 'yours' Game Points.',78);end
  339.   end
  340.   if yours<1 then do;tr 'c5'
  341.     if lose=1 then do;addpoints (-(yours%10))
  342.       tr center("You're disappointed after losing "yours' Minutes of Time.',78);end
  343.     if lose=2 then do;addpoints (-yours)
  344.       tr center("You're disappointed after losing "yours' Game Points.',78);end
  345.   end
  346.   tr 'n1c7'center('You leave, until the gambling bug bites again...',78)
  347.   le='z3c4o1  A C E Y  D E U C Y  o0z0'defcol;logentry le
  348.   bufferflush;exit
  349.  
  350. NEWDECK:
  351.   do s=1 to 4;do v=1 to 13
  352.   deck.d1=substr('A234567891JQK',v,1)
  353.   if v=10 then deck.d1=deck.d1'0'
  354.   c=1;if s=3 | s=4 then c=0
  355.   deck.d1=deck.d1'c'c||substr('',s,1)
  356.   d1=d1+1;end v;end s
  357.   return
  358.  
  359. SHUFFLE:
  360.   se 'n1>f>fz0c2Shuffling...c7[c5100c7]<4c5'
  361.   do i=1 to 52;d.i=deck.i;end i
  362.   do i=100 to 50 by -1;a1=random(1,52)
  363.   a2=random(1,52);a=d.a1;d.a1=d.a2;d.a2=a
  364.   se right(i,3,'0')'<3';end i
  365.   do i=1 to 26;a.i=d.i;end i;se '<dc2Cutting...'
  366.   do i=1 to 26;a=i+26;d.i=d.a;d.a=a.i;end i
  367.   se '<aShuffling...c5>1';do i=49 to 0 by -1
  368.   a1=random(1,52);a2=random(1,52)
  369.   a=d.a1;d.a1=d.a2;d.a2=a;se right(i,3,'0')'<3'
  370.   end i;se '<dc2Finished....';card=0
  371.   return
  372.  
  373. DEAL:
  374.   card=card+1;c1=left(d.card,8);c4=right(d.card,8)
  375.   c2='   'right(d.card,1)' ';c3=' 'right(d.card,1)'   '
  376.   tr 'f0'down;v=pos(left(d.card,1),'A234567891JQK')
  377.   tr over'z7c4'c1'z0'
  378.   tr over'z7'c2'z0'
  379.   tr over'z7'c3'z0'
  380.   tr over'z7c4'c4'z0'
  381.   return
  382.  
  383. BANK:
  384.   total=an;yel=0;red=0;blu=0;whi=0
  385.   do while an>99;yel=yel+1;an=an-100;end
  386.   do while an>49;red=red+1;an=an-50 ;end
  387.   do while an>9 ;blu=blu+1;an=an-10 ;end
  388.   do while an>0 ;whi=whi+1;an=an-1  ;end
  389.   tr 'f0n1'bpos"z2c0100's:c3"left(copies('',yel),10)
  390.   tr 'f0n2'bpos"z2c0 50's:c1"left(copies('',red),10)
  391.   tr 'f0n3'bpos"z2c0 10's:c4"left(copies('',blu),10)
  392.   tr 'f0n4'bpos"z2c0  1's:c7"left(copies('',whi),10)
  393.   tr 'f0n5'bpos'z6c4Total:c0'left(total' Chips',10)
  394.   return
  395.  
  396. TITLE:
  397.   tr 'f1n1';do i=1 to 20;tr 'z1c6>5'copies('°',70);end i
  398.   tr 'f0n3z0c3';do i=1 to 11;tr '>f>6'copies(' ',40);end i
  399.   tr 'f0n5>f>fc7o1A C E Y    D E U C E Yo0'
  400.   tr 'n1>f>9c6Opening a new deck...';call NEWDECK
  401.   call SHUFFLE;card=random(1,45)
  402.   down='n3';over='>f';call DEAL
  403.   over='>f>f>f>f>2';call DEAL
  404.   down='n9';over='>f';call DEAL
  405.   over='>f>f>f>f>2';call DEAL
  406.   down='nf';over='>f';call DEAL
  407.   over='>f>f>f>f>2';call DEAL
  408.   tr 'f0nfn1>f>6z0c2'
  409.   tr '>f>6c2      c3Amiga C-Net Door Written By     c2'
  410.   tr '>f>6c2         c7Dotoran of Frontiers         c2'
  411.   tr '>f>6c2'
  412.   se 'f0nb>f>9z0c6Need Instructions? c7(c3Yc7/c3nc7)c6: c3'
  413.   gc;an=result;call CHECK
  414.     if an='N' then do;tr 'No.';return;end
  415.   tr 'Yes.';call DOCS
  416.   return
  417.  
  418. PREFS:
  419.   tr 'f0n4>f>7c6Player Preferencesc7:n1'
  420.   tr '>f>7c7[c1Gc7] c1Game Repetitions to Play    c7: c1'left(games,3)
  421.   tr '>f>7c7[c2Dc7] c2Default c3<c6CRc3> c2Betting Amount c7: c2'left(dbet,3)
  422.   if pl>0 then tr ">f>7c7[c4Jc7] c4Jennifer's Starting Chips   c7: c4"left(jennifers,3)
  423.   if pl>1 then tr ">f>7c7[c3Kc7] c3Kristin's  Starting Chips   c7: c3"left(kristins,3)
  424.   if pl>2 then tr ">f>7c7[c5Pc7] c5Paul's     Starting Chips   c7: c5"left(pauls,3)
  425.   tr '>f>7c7[c6Fc7] c6Friendly Option Is Turned   c7: c6'substr('OffOn ',friend*3+1,3)
  426.   tr 'f0nd>f>7c3Press the letter of the c6Preference c3to'
  427.   tr '>f>7change, or press c7RETURN c3to continue:  h1c6'
  428.   tr 'n1>f>6'copies(' ',40)'n1>f>6'copies(' ',40)
  429.   se 'f0ne>f>f>f>e';gc;an=result;call CHECK
  430.   a=pos(an,'GDJKPF');if a=0 then return;else tr an
  431.   if a=1 then signal PREFS1;else if a=2 then signal PREFS2
  432.   if a=3 then signal PREFS3;else if a=4 then signal PREFS4
  433.   if a=5 then signal PREFS5;else signal PREFS6
  434.  
  435. PREFS1:
  436.   se 'n1>f>7c6Enter c7New c2Game Repetitionc6: c5';qu
  437.   an=result;call CHECK;if an<'0' | an>'100' then signal BAD
  438.   games=trunc(an);signal PREFS
  439.  
  440. PREFS2:
  441.   se 'n1>f>7c6Enter c7New c2Default c3<c6CRc3> c2Betc6: c5';qu
  442.   an=result;call CHECK;if an<'1' | an>'100' then signal BAD
  443.   dbet=trunc(an);signal PREFS
  444.  
  445. PREFS3:
  446.   se "n1>f>7c6Enter c7Jennifer's c2Starting Chipsc6: c5";qu
  447.   an=result;call CHECK;if an<'200' | an>'800' then signal BAD
  448.   jennifers=trunc(an);signal PREFS
  449.  
  450. PREFS4:
  451.   se "n1>f>7c6Enter c7Kristin's c2Starting Chipsc6: c5";qu
  452.   an=result;call CHECK;if an<'200' | an>'800' then signal BAD
  453.   kristins=trunc(an);signal PREFS
  454.  
  455. PREFS5:
  456.   se "n1>f>7c6Enter c7Paul's c2Starting Chipsc6: c5";qu
  457.   an=result;call CHECK;if an<'200' | an>'800' then signal BAD
  458.   pauls=trunc(an);signal PREFS
  459.  
  460. PREFS6:
  461.   if friend=1 then friend=0;else friend=1
  462.   signal PREFS
  463.  
  464. BAD:
  465.   tr '>f>7c1That c6value c1is out of range.w2'
  466.   signal PREFS
  467.  
  468. DOCS:
  469.   tr 'f0n2z0c7';ov='>8'
  470.   do 18;tr '>7'copies(' ',66);end;tr 'f0n2'
  471.   tr ov'>9c6o1A C E Y     D E U C E Yo0     c7Instructionsn1'
  472.   tr ov'c5  This poker game is played with a standard deck of fifty-two'
  473.   tr ov'cards.  You are dealt two cards face up, and can then bet chips'
  474.   tr ov'on whether the next card falls between the first two cards.n1'
  475.   tr ov'  If your first card dealt is an Ace, you have the option of'
  476.   tr ov'making it either Low, or High. An Ace dealt as the second, or'
  477.   tr ov'last card will always be High.n1'
  478.   tr ov'  To begin each game, you must Ante 5 chips. These chips will be'
  479.   tr ov'spent for every hand you play, and may not be returned.  Your'
  480.   tr ov'bet must be at least 1, but not exceeding half your total chips.'
  481.   tr ov'If you are dealt two cards of equal value, or two cards with a'
  482.   tr ov'difference of one, there is no way for you to win, and a bet of'
  483.   tr ov'0 chips will be allowed in these instances, however your Ante'
  484.   tr ov'will be lost, just as above.'
  485.   tr ov'>f>f>ac3Press any key now...g1'
  486.   tr 'f0n2';do 18;tr '>7'copies(' ',66);end;tr 'f0n2'
  487.   tr ov'>f>f>f>ac7Page 2n1'
  488.   tr ov'c5  After the betting is over, your third card will be dealt face'
  489.   tr ov'up.  If the card falls between your first two, you win your bet.'
  490.   tr ov'If the card falls outside the first two, you lose your bet, but'
  491.   tr ov'if the card matches either the first, or second card, then you'
  492.   tr ov'lose double your bet.n1'
  493.   tr ov'  The game will ask you for a number of opponents between 0 and'
  494.   tr ov'3. These opponents are not playing against you, or each other,'
  495.   tr ov'but are playing their games from the same deck you are using.'
  496.   tr ov'This allows for the element of unawareness, because you must'
  497.   tr ov'also be aware of how many cards have already been used. If you'
  498.   tr ov'choose 0 opponents, then you will simply play by yourself.n3'
  499.   tr ov'>f>f>ac3Press any key now...g1'
  500.   tr 'f0n2';do 18;tr '>7'copies(' ',66);end;tr 'f0n2'
  501.   tr ov'>f>f>f>ac7Page 3'
  502.   tr ov'c5  After you have chosen the number of opponents, you will be'
  503.   tr ov'allowed to set a couple preferences before the game actually'
  504.   tr ov'begins.  If you want to start immediately, simply press your'
  505.   tr ov'RETURN key, without pressing any other key first.n1'
  506.   tr ov'  Game repetitions is the number of games that will be dealt out'
  507.   tr ov'before the game starts asking if you would like to play again.'
  508.   tr ov'This speeds up the game some. You can quit the game, before the'
  509.   tr ov'repetitions are over by typing a Q when it asks for a bet.n1'
  510.   tr ov'  Default bet is the number of chips the game will use as your'
  511.   tr ov'bet whenever you press your RETURN key, without actually enter-'
  512.   tr ov'ing a bet. This is another way to speed up the game.n1'
  513.   tr ov'  The next three items allow you to set the opponents beginning'
  514.   tr ov'pot. The acceptable values are between 200 and 800 chips.'
  515.   tr ov'>f>f>ac3Press any key now...g1'
  516.   tr 'f0n2';do 18;tr '>7'copies(' ',66);end;tr 'f0n2'
  517.   tr ov'>f>f>f>ac7Page 4'
  518.   tr ov'c5  The last preference is the friendly option. If this option is'
  519.   tr ov'turned ON, you will be given 100 chips whenever one of the other'
  520.   tr ov'players decides to leave, while they are ahead.  If it is OFF,'
  521.   tr ov'then the player(s) simply leave without even giving you the time'
  522.   tr ov'of day.  This is a goofy little FUN addition to the game.n1'
  523.   tr ov'  Whenever you exceed 1000 chips, or drop below 5 chips, you'
  524.   tr ov'will have to quit the game, however, you can reenter the game if'
  525.   tr ov'you wish, with another 500 chips.n1'
  526.  
  527. if lose=1 then do
  528.   tr ov'  10 Chips are the same as 1 Minute of Time.  50 Minutes will be'
  529.   tr ov'deducted from your account whenever you play this game.  If you'
  530.   tr ov'leave the game with more than 500 chips, you will be awarded'
  531.   tr ov'extra Minutes, but if you leave with a negative number of'
  532.   tr ov'chips, those extra minutes will be deducted from your account.n1'
  533. end
  534. if lose=2 then do
  535.   tr ov'  Chips are the same as P-File Game Points.  500 Chips will be'
  536.   tr ov'deducted from your account whenever you play this game.  If you'
  537.   tr ov'leave the game with more than 500 chips, you will be awarded'
  538.   tr ov'extra Game Points, but if you leave with a negative number of'
  539.   tr ov'chips, those extra chips will be deducted from your account.n1'
  540. end
  541.   tr ov'>f>f>ac3Press any key now...g1'
  542.   tr 'f0n2';do 18;tr '>7'copies(' ',66);end;tr 'f0n2'
  543.   tr ov'>f>f>f>ac7Page 5n1'
  544.   tr ov'c5  Lastly, you can start the game repetitions over again, either'
  545.   tr ov'after they have finished, or even before they finish, by typing'
  546.   tr ov'an R for your bet.n1'
  547.   tr ov'  If you wish to enter a new repetition value, then type an N'
  548.   tr ov'for your bet. The hand you are currently playing will become the'
  549.   tr ov'first hand in the new repetition loop.n1'
  550.   tr ov'  Typing an H, or the ? will give you a mini-menu to these other'
  551.   tr ov'commands at the Bet prompt.n1'
  552.   tr ov'  I truly hope you enjoy this game, and look for other Casino'
  553.   tr ov'Games coming soon to a bbs near you...'
  554.   tr ov'>f>f>f>7c3z1o1c3 Dotoran z0o0'
  555.   return
  556.  
  557. CLEAR:
  558.   se 'f0n9z0c0';do 6;tr '>f>e'copies(' ',22);end;se 'f0na'
  559.  return
  560.  
  561. CHECK:;if ARG() & ARG(1)~='###PANIC' then return ARG(1)
  562.   getcarrier;if result='TRUE' then if ARG() then return ARG(1);else return
  563.   logentry 'Lost Carrier!!';bufferflush;exit
  564. SYNTAX:;ERROR:;IOERR:;e1=' Error: 'rc' ('errortext(rc)')'
  565.   e2='  Line: 'left(sigl,4)'File:';gu 1311992;a=result;gu 1311960
  566.   b=result;c='"'a||b'"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2
  567.   e=translate(sourceline(sigl),"\{","");do while e~=''
  568.   e3='Source: 'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush
  569. /**************************************************************************\
  570. \****************************************** FRONTIERS BBS (716)/823-9892 **/
  571.